home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / www / src / fminit2.0 / diffs_from_almy21 < prev    next >
Encoding:
Text File  |  1992-11-17  |  8.3 KB  |  302 lines
  1.  
  2. cdiff module < idtk/src/xlisp >
  3. Master Directory  = /doc/MCS/idtk/src/xlisp
  4. Working Directory = /doc/connolly/idtk/src/xlisp
  5.     [almy21]          Revision 1.2        unixstuff.c
  6. *** /tmp/,RCSt1028174    Wed Aug 19 18:45:55 1992
  7. --- unixstuff.c    Wed Jul 29 16:12:24 1992
  8. ***************
  9. *** 2,8 ****
  10.   ********************************************************************************
  11.   *
  12.   * File:         unixstuff.c
  13. ! * RCS:          $Header: /doc/MCS/idtk/src/xlisp/unixstuff.c,v 1.2 92/07/20 19:22:12 connolly Exp $
  14.   * Description:  UNIX-Specific interfaces for XLISP
  15.   * Author:       David Michael Betz; Niels Mayer
  16.   * Created:      
  17. --- 2,8 ----
  18.   ********************************************************************************
  19.   *
  20.   * File:         unixstuff.c
  21. ! * RCS:          $Header: /doc/MCS/idtk/src/xlisp/unixstuff.c,v 1.3 92/07/29 14:31:51 connolly Exp $
  22.   * Description:  UNIX-Specific interfaces for XLISP
  23.   * Author:       David Michael Betz; Niels Mayer
  24.   * Created:      
  25. ***************
  26. *** 39,45 ****
  27.   *
  28.   ********************************************************************************
  29.   */
  30. ! static char rcs_identity[] = "@(#)$Header: /doc/MCS/idtk/src/xlisp/unixstuff.c,v 1.2 92/07/20 19:22:12 connolly Exp $";
  31.   
  32.   
  33.   #include "xlisp.h"
  34. --- 39,45 ----
  35.   *
  36.   ********************************************************************************
  37.   */
  38. ! static char rcs_identity[] = "@(#)$Header: /doc/MCS/idtk/src/xlisp/unixstuff.c,v 1.3 92/07/29 14:31:51 connolly Exp $";
  39.   
  40.   
  41.   #include "xlisp.h"
  42. ***************
  43. *** 482,488 ****
  44.   
  45.   char    *banner;
  46.   {
  47. !     printf("%s\n", banner );
  48.       lindex    = 0;
  49.       lcount    = 0;
  50.   #ifdef KCW_INPUT
  51. --- 482,488 ----
  52.   
  53.   char    *banner;
  54.   {
  55. !     fprintf(stderr, "%s\n", banner );
  56.       lindex    = 0;
  57.       lcount    = 0;
  58.   #ifdef KCW_INPUT
  59. ***************
  60. *** 642,648 ****
  61.   
  62.   
  63.   /* -- ossymbols - enter os-specific symbols */
  64. ! ossymbols()
  65.   {
  66.   }
  67.   
  68. --- 642,648 ----
  69.   
  70.   
  71.   /* -- ossymbols - enter os-specific symbols */
  72. ! void ossymbols()
  73.   {
  74.   }
  75.   
  76. ***************
  77. *** 693,701 ****
  78.   char read_keybd()
  79.   {
  80.      int nrd;
  81. !    char buf[1];
  82.   
  83. !    nrd = read(0, buf, sizeof(buf)); /* NPM note: 0 == stdin fd */
  84.      buf[nrd] = 0;
  85.   
  86.      if (buf[0] == 127) {        /* perform the BACKSPACE */
  87. --- 693,701 ----
  88.   char read_keybd()
  89.   {
  90.      int nrd;
  91. !    char buf[2]; /* DWC add a char for null terminator */
  92.   
  93. !    nrd = read(0, buf, sizeof(buf)-1); /* NPM note: 0 == stdin fd */
  94.      buf[nrd] = 0;
  95.   
  96.      if (buf[0] == 127) {        /* perform the BACKSPACE */
  97. ***************
  98. *** 856,862 ****
  99.     rdtm = (rtm > 0) ? rtm : -rtm;
  100.     sprintf(buf, "CPU %.2f sec., Real %.2f sec.\n", dtm / ticks_per_second(),
  101.                                               rdtm / ticks_per_second());
  102. !   stdputstr(buf);
  103.     return(result);
  104.   }
  105.   
  106. --- 856,862 ----
  107.     rdtm = (rtm > 0) ? rtm : -rtm;
  108.     sprintf(buf, "CPU %.2f sec., Real %.2f sec.\n", dtm / ticks_per_second(),
  109.                                               rdtm / ticks_per_second());
  110. !   errputstr(buf); /* DWC: no noise on stdout */
  111.     return(result);
  112.   }
  113.   
  114.     [almy21]          Revision 1.2        xldmem.c
  115. *** /tmp/,RCSt1028179    Wed Aug 19 18:45:56 1992
  116. --- xldmem.c    Wed Jul 29 16:12:24 1992
  117. ***************
  118. *** 438,444 ****
  119.       /* print the start of the gc message */
  120.       if (s_gcflag && getvalue(s_gcflag)) {
  121.           sprintf(buf,"[ gc: total %ld, ",nnodes);
  122. !         stdputstr(buf);
  123.       }
  124.   
  125.       /* mark the obarray, the argument list and the current environment */
  126. --- 438,444 ----
  127.       /* print the start of the gc message */
  128.       if (s_gcflag && getvalue(s_gcflag)) {
  129.           sprintf(buf,"[ gc: total %ld, ",nnodes);
  130. !         errputstr(buf); /* DWC: no noise on stdout */
  131.       }
  132.   
  133.       /* mark the obarray, the argument list and the current environment */
  134. ***************
  135. *** 482,488 ****
  136.       /* print the end of the gc message */
  137.       if (s_gcflag && getvalue(s_gcflag)) {
  138.           sprintf(buf,"%ld free ]\n",nfree);
  139. !         stdputstr(buf);
  140.       }
  141.   }
  142.   
  143. --- 482,488 ----
  144.       /* print the end of the gc message */
  145.       if (s_gcflag && getvalue(s_gcflag)) {
  146.           sprintf(buf,"%ld free ]\n",nfree);
  147. !         errputstr(buf); /* DWC: no noise on stdout */
  148.       }
  149.   }
  150.   
  151. ***************
  152. *** 877,883 ****
  153.           return (NIL);
  154.   
  155.       /* return directly to the top level */
  156. !     stdputstr("[ returning to the top level ]\n");
  157.       longjmp(top_level,1);
  158.       return (NIL);    /* never executed, but avoids warning message */
  159.   }
  160. --- 877,883 ----
  161.           return (NIL);
  162.   
  163.       /* return directly to the top level */
  164. !     errputstr("[ returning to the top level ]\n") ;/* DWC: no noise on stdout */
  165.       longjmp(top_level,1);
  166.       return (NIL);    /* never executed, but avoids warning message */
  167.   }
  168.     [almy21]          Revision 1.2        xlio.c
  169. *** /tmp/,RCSt1028184    Wed Aug 19 18:45:56 1992
  170. --- xlio.c    Wed Jul 29 16:12:25 1992
  171. ***************
  172. *** 146,152 ****
  173.       /* otherwise, check for terminal output or file output */
  174.       else {
  175.           fp = getfile(fptr);
  176. !         if (fp == stdout || fp == stderr)
  177.               ostputc(ch);
  178.           else {
  179.   #ifdef BETTERIO
  180. --- 146,152 ----
  181.       /* otherwise, check for terminal output or file output */
  182.       else {
  183.           fp = getfile(fptr);
  184. !         if (fp == stdout) /* DWC: dont' mix stderr and stdout */
  185.               ostputc(ch);
  186.           else {
  187.   #ifdef BETTERIO
  188.     [almy21]          Revision 1.2        xlisp.c
  189. *** /tmp/,RCSt1028189    Wed Aug 19 18:45:57 1992
  190. --- xlisp.c    Wed Jul 29 16:12:25 1992
  191. ***************
  192. *** 106,112 ****
  193.       if (transcript && (tfp = osaopen(transcript,"w")) == NULL) {
  194.           /* TAA Mod -- quote name so "-t foo" will indicate no file name */
  195.           sprintf(buf,"error: can't open transcript file: \"%s\"",transcript);
  196. !         stdputstr(buf);
  197.       }
  198.   
  199.       /* load "init.lsp" */
  200. --- 106,112 ----
  201.       if (transcript && (tfp = osaopen(transcript,"w")) == NULL) {
  202.           /* TAA Mod -- quote name so "-t foo" will indicate no file name */
  203.           sprintf(buf,"error: can't open transcript file: \"%s\"",transcript);
  204. !         errputstr(buf);
  205.       }
  206.   
  207.       /* load "init.lsp" */
  208. ***************
  209. *** 139,145 ****
  210.           }
  211.   
  212.           /* print a prompt */
  213. !         stdputstr("> ");
  214.   
  215.           /* read an expression */
  216.           if (!xlread(getvalue(s_stdin),&expr))
  217. --- 139,145 ----
  218.           }
  219.   
  220.           /* print a prompt */
  221. !         errputstr("> ");
  222.   
  223.           /* read an expression */
  224.           if (!xlread(getvalue(s_stdin),&expr))
  225.     [almy21]          Revision 1.2        xljump.c
  226. *** /tmp/,RCSt1028194    Wed Aug 19 18:45:57 1992
  227. --- xljump.c    Wed Jul 29 16:12:25 1992
  228. ***************
  229. *** 109,115 ****
  230.   /* xltoplevel - go back to the top level */
  231.   VOID xltoplevel()
  232.   {
  233. !     stdputstr("[ back to top level ]\n");
  234.       findandjump(CF_TOPLEVEL,"no top level");
  235.   }
  236.   
  237. --- 109,115 ----
  238.   /* xltoplevel - go back to the top level */
  239.   VOID xltoplevel()
  240.   {
  241. !     errputstr("[ back to top level ]\n"); /* DWC */
  242.       findandjump(CF_TOPLEVEL,"no top level");
  243.   }
  244.   
  245. ***************
  246. *** 122,128 ****
  247.   /* xlcleanup - clean-up after an error */
  248.   VOID xlcleanup()
  249.   {
  250. !     stdputstr("[ back to previous break level ]\n");
  251.       findandjump(CF_CLEANUP,"not in a break loop");
  252.   }
  253.   
  254. --- 122,128 ----
  255.   /* xlcleanup - clean-up after an error */
  256.   VOID xlcleanup()
  257.   {
  258. !     errputstr("[ back to previous break level ]\n"); /* DWC */
  259.       findandjump(CF_CLEANUP,"not in a break loop");
  260.   }
  261.   
  262.     [almy21]          Revision 1.2        xlread.c
  263. *** /tmp/,RCSt1028199    Wed Aug 19 18:45:58 1992
  264. --- xlread.c    Wed Jul 29 16:12:25 1992
  265. ***************
  266. *** 98,104 ****
  267.   
  268.       /* print the information line */
  269.       if (vflag)
  270. !         { sprintf(buf,"; loading \"%s\"\n",fname); stdputstr(buf); }
  271.   
  272.       /* read, evaluate and possibly print each expression in the file */
  273.       xlbegin(&cntxt,CF_ERROR,true);
  274. --- 98,104 ----
  275.   
  276.       /* print the information line */
  277.       if (vflag)
  278. !         { sprintf(buf,"; loading \"%s\"\n",fname); errputstr(buf); }
  279.   
  280.       /* read, evaluate and possibly print each expression in the file */
  281.       xlbegin(&cntxt,CF_ERROR,true);
  282.     [almy21]          Revision 1.1        xlseq.c
  283. *** /tmp/,RCSt1028204    Wed Aug 19 18:45:59 1992
  284. --- xlseq.c    Wed Jul 29 16:12:25 1992
  285. ***************
  286. *** 815,821 ****
  287.       switch (ntype(seq)) {
  288.           case CONS:
  289.               for (; consp(seq); seq = cdr(seq)) {
  290. !                 long s=start, l=end-start;
  291.                   /* check to see if this element should be deleted */
  292.                   /* force copy if count, as specified by end, is exhausted */
  293.                   if (s-- > 0 || l-- <= 0 || 
  294. --- 815,821 ----
  295.       switch (ntype(seq)) {
  296.           case CONS:
  297.               for (; consp(seq); seq = cdr(seq)) {
  298. !                 unsigned long s=start, l=end-start;
  299.                   /* check to see if this element should be deleted */
  300.                   /* force copy if count, as specified by end, is exhausted */
  301.                   if (s-- > 0 || l-- <= 0 || 
  302.